home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #5 / Amiga Plus CD - 2000 - No. 5.iso / Tools / WWW / YAM / Rexx / DeleteUnread.yam < prev    next >
Encoding:
Text File  |  2000-01-01  |  601 b   |  19 lines
  1. /* DeleteUnread.yam  - Deletes all unread messages in the current folder  */
  2. /* $VER: DeleteUnread.yam 1.0 (12.03.00) © 2000 by M.Beck <mbeck@yam.ch>  */
  3. /* Requires YAM 2.0 or later                                              */
  4.  
  5. OPTIONS RESULTS
  6. ADDRESS YAM
  7. FolderInfo STEM folder.                        
  8. ListSelect NONE                               
  9. found = 0
  10. DO i = 0 TO folder.TOTAL-1                      
  11.    MailInfo i STEM mess.                       
  12.    IF (mess.STATUS = 'N') | (mess.STATUS = 'U') THEN DO
  13.       ListSelect i
  14.       found = 1
  15.    END
  16. END
  17. IF found THEN MailDelete ATONCE
  18. EXIT
  19.